# name : Confidence Interval: ciBinomial 2arm (gsDesign)
# key : gsDesign.ciBinomial.2arm
# contributor: Shuguang Sun
# --
gsDesign::ciBinomial(
  # Miettinen and Nurminen (1980) Z- or Chi-square-statistic
  x1 = ${1:1},
  x2 = ${2:1},
  n1 = ${3:10},
  n2 = ${4:10},
  alpha = ${5:0.05},
  adj = ${6:0},    # if 1, continuous adj for var
  scale = ${8:$$(yas-choose-value '("Difference" "RR" "OR"))}
)
